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APPENDIX A 
Network-Level Procedures 

The notation LSU(update_list) represents a link-state-update message that includes the 

es (u, v, c, sn) in the update_list. 

Process_Update(i, nbr, in_message){ 

// Called when an update message in_message is received from nbr. 

Update_Topology_Table(i, nbr, in_message, update_list). 

Update_Parents(i). 

For each node src in TT_i { 

Let update_list(src) consist of all tuples (k, 1, c, sn) in updatejist such that 

k = src. 

If update_list(src) is nonempty 

Send message LSU(update_list(src)) to children_i(src).}} 

Update JTopology_Table(i, nbr, in_message, update__list){ 
Set update_list to empty list. 
For each ((u,v,c,sn) in in_message) { 
If(p_i(u)==nbr){ 

If ((u,v) is in TTJ and sn > TT_i(u,v).sn) { 
Add (u,v,c,sn) to update_list 
Set TT_i(u,v).sn = sn. 
Set TT_i(u,v).c = c. 
If (sn > sn_i(u)) Set sn_i(u) = sn.} 
If ((u,v) is not in TT_i) { 

Add (u,v,c,sn) to TT_i. 

Add (u,v,c,sn) to update_list. 

If (sn > sn_i(u)) Set sn_i(u) = sn.} } } } 

Link_Change(i j) { 

// Called when the cost of link (i j) changes. 
If (|TT_i(ij).c - cost(ij)|/TTJ(ij).c > epsilon) { 

Set TT_i(i,j).c = cost(ij). 

Set TT_i(i j).sn = current time stamp SN_i. 

Set update_list = {(i, j, TT_i(i, j).c, TT_i(i, j).sn) 

Send message LSU(update__list) to children_i(i).}} 

Link_Down(ij){ 

// Called when link (i j) goes down. 
Remove j fromNJ. 
Set TT_i(ij).c = infinity. 
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Set TT_i(i j).sn = current time stamp SN_i. 
Update_Parents(i). 

For each (node src in TTJ) remove j from childrenj(src). 
Set updatejist = {(ij, infinity, TTJ(i j).sn)}. 
Send message LSU(update_list) to children J(i).} 

Link_Up(ij){ 

// Called when link (i j) comes up. 

Addj toN_i. 

Set TT_i(i j).c = cost(i j). 

Set TT_i(i j).sn = current time stamp SNJ. 

Update J>arents(i). 

Set updatejist = {(i, j, TT_i(i j).c, TTJ(ij).sn)}. 
Send message LSU(updateJist) to children_i(i).} 

Update_Parents(i) { 

Compute_New_Parents(i) 
For each (node k in NJ){ 

Set cancel_srcjist(k), srcjist(k), and sn_list(k) to empty.} 
For each (node src in TTJ such that src != i){ 
If (new_p_i(src) != p_i(src)){ 
If(p_i(src) !=NULL){ 
Set k = p_i(src). 
Add src to cancel_src_list(k).} 
Set p_i(src) = new_p_i(src). 
If (new_p_i(src) != NULL) { 
Set k = new_p_i(src). 
Add src to src_list(k). 
Add sn_i(src) to sn_list(k).}}} 
For each (node k in N_i){ 

If (src_list(k) is nonempty) { 

Send message NEW PARENT(src_list(k), sn_list(k)) to k.} 
If (cancel_src_list(k) is nonempty { 

Send message CANCEL PARENT(cancel_srcJist(k)) to k.}}} 

Compute_New_Parents(i) { 

For each (node src in TTJ such that src != i){ 

Set new_p_i(src) = NULL.} 
Compute min-hop paths using Dijkstra. 
For each (node src in TTJ such that src != i){ 

Set new_p J(src) equal to the neighbor of node i along the minimum-hop 

path from i to src.}} 

Process J^ew_Parent(i, nbr, srcjist, snjist){ 

// Called when node i receives a NEW PARENT(src Jist, snjist) message from 
nbr. 

Set updatejist to empty list. 
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For each (node src in src_list) { 

Let sn_list.src denote the sequence number corresponding to src in snjist. 
Add nbr to children_i(src). 

Set new_updates = {(k, 1, c, sn) in TT_i such that k = src and sn > 
5 sn_list.src}. 

Add new_updates to update_list.} 
Send message LSU(update_list) to nbr.} 

Process_Cancel JParent(i,nbr,src_list ) { 
1 0 // Called when node i receives a CANCEL P ARENT(src_list) message from nbr. 

For each (node src in srcjist) remove nbr from children_i(src).} 

Send_Periodic_Updates(i) { 

Set update_list to empty. 

For each (j in N_i such that TT_i(i j). c != infinity) { 
1 5 Set TT_i(i j),sn = current time stamp SN_i. 

Add (i, j, TT_i(ij).c, TT_i(ij).sn) to updatejist. } 
Send message LSU(update_list) to children_i(i).} 

Compute_New_Parents2(i) { 
Si S<-0; 
fU 20 For each (v e TT_i) { 

03 Set d(v) - infinity; 

J Set pred(v)- NULL; 

™ Set new_pj(v) = NULL; } 

u d(i) <- 0; 

25 While (there exists w € TT_i - S such that d(w) < infinity) { 

ry Set u = node w e TT_i - S that minimizes d(w); 

O SetS = Su{u}; 

H For each (v such that (u 5 v) e TT_i) { 

□ If (d(u) + 1 < d(v) or [d(u) + 1 = d(v) and new_pj(u) = p_i(v)]) { 

O30 Setd(v) = d(u) + 1; 

Set pred(v) = u; 

If (u = i) Set new_p_i(v) = v; 

Else Set new_p_i(v) = new_p_i(u); } } } } 

Partial-Topology 1 

35 The function Mark_Special_Links() is called whenever the parent p_i(src) or the set of 

children children_i(src) for any source src changes. The notation LSU(update_list) represents a 
link-state-update message that includes the updates (u, v, c, sn, sp) in the update_list, where sp is 
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a single bit that indicates whether the link is "special", i.e., whether it should be broadcast to all 
nodes. 



Mark_Special_Links(i) { 

For all (outgoing links (ij)) {Set TT_i(ij).sp = 0;} 
5 For all (nodes src != i){ 

if (p_i(src) != NULL and p_i(src) != src){ 

Set TT_i(i, p_i(src)).sp =1;} //Link is special. 
For all (nodes j in childrenj(src)){ 

Set TT_i(i j).sp = 1 ;} //Link is special. 

10 } 
} 

Update_Topology_Table(i, nbr, in_message, update_list){ 
Set update_list to empty list. 
For each ((u,v,c,sn,sp) in in_message) { 
pl5 If(p_i(u) = nbr) { 

J3 If ((u,v) is in TTJ and sn > TTJ(u,v).sn) { 

"y Set TTJ(u,v).sn = sn. 

2 Set TT_i(u,v).c = c. 

^ Set TTJ(u,v).sp = sp. 

jr! 20 (Only links marked as special are forwarded.) 

If (sp = 1) Add (u,v,c,sn,sp) to update_list. 
If (sn > sn_i(u)) Set snj(u) = sn,} 
If ((u,v) is not in TT_i) { 

Add (u 5 v 5 c 5 sn,sp) to TTJ. 
□ 25 If (sp = 1) Add (u,v 5 c 5 sn,sp) to update_list. 

If (sn > sn__i(u)) Set sn_i(u) = sn. } } } } 

\ Process_Update(i, nbr, in_message){ 

// Called when an update message in_message is received from nbr. 
30 Update_Topology_Table(i, nbr, injnessage, update_list). 

Update_Parents(i). 
Mark_Special_Links(i). 
For each node src in TT_i { 

Let update_list(src) consist of all tuples (k, 1, c, sn, sp) in update_list such 
35 that k = src. 

If update_list(src) is nonempty 

Send message LSU(update_list(src)) to childrenj(src).}} 

Link_Change(i j) { 

// Called when the cost of link (ij) changes. 
40 If (|TT_i(i j).c - cost(i J)|/TT_i(i j).c > epsilon) { 

Set TTJ(i j).c = cost(ij). 
Set TT_j(i j).sn = current time stamp SN_i. 



4 



Set update Jist = {(i, j, TT_i(i, j).c, TT_i(i, j).sn, TT_i(iJ).sp)}. 
Send message LSU(update_list) to children_i(i).}} 

Link_Down(ij){ 

// Called when link (i j) goes down. 

Remove j from N_i. 

Set TT_i(i j).c = infinity. 

Set TT_i(i j).sn = current time stamp SN_i. 

Update_Parents(i). 

For each (node src in TTJ) remove j from children_i(src). 
Mark_Special_Links(i). 

Set update Jist = {(ij, infinity, TT_i(ij).sn, TT_i(ij).sp)}. 
Send message LSU(update_Hst) to children_i(i).} 

Link_Up(i,j){ 

// Called when link (i j) comes up. 

AddjtoNj. 

Set TT_i(i j).c = cost(i j). 

Set TT_i(Lj).sn = current time stamp SN_i. 

Update_Parents(i) . 

Mark_Special_Links(i). 

Set updatejist = {(i, j, TT_i(ij).c, TT_i(ij).sn, TT_i(ij).sp)}. 
Send message LSU(update_list) to children_i(i).} 

Update_Parents(i) { 

Compute_New_Parents(i). 
For each (node k in N_i) 

Set cancel_src__list(k), src_list(k) ? and sn_list(k) to empty. 
For each (node src in TT_i such that src != i){ 
If (new__p_i(src) != p_i(src)){ 
If(p_i(src) !=NULL){ 
Set k = p_i(src). 
Add src to cancel_src_list(k).} 
Set p_i(src) = new_p_i(src). 
If (new jp J(src) != NULL) { 
Set k = new_p_i(src). 
Add src to srcjist(k). 
Add sn_i(src) to sn_list(k).}}} 
For each (node k in N__i){ 

If (src_list(k) is nonempty) { 

Send message NEW PARENT(src_list(k), snjist(k)) to k.} 
If (cancel_src_list(k) is nonempty{ 

Send message CANCEL PARENT(cancel_srcJist(k)) to k.} } } 

Compute_New_Parents(i) { 

For each (node src in TT_i such that src != i){ 
Set new_p_i(src) = NULL.} 
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Compute min-hop paths using Dijkstra. 

For each (node src in TT_i such that src != i){ 

Set new_p_i(src) equal to the neighbor of node i along the minimum-hop 

path from i to src.}} 

5 Process_New_Parent(i, nbr, src_list ? sn_list){ 

//Called when node i receives a NEW PARENT(src_list, sn_list) message from 
nbr. 

Set update_list to empty list. 
For each (node src in srcjist) { 
1 0 Let sn_list.src denote the sequence number corresponding to src in snjist. 

Add nbr to childrenj(src). 

If (src != i) Set TT_i(i, nbr).sp = 1. //Link to nbr is special. 
If (src = i) Set new_updates = {(src, v, c, sn, sp) in TTJ such that 
sn > sn_list.src}. 

15 If (src != i) Set new_updates = {(src, v, c, sn, sp) in TT_i such that 

sn > sn_list.src and sp = 1 }. //Only special links are sent. 
Add new_updates to update_list.} 
Send message LSU(update_list) to nbr.} 
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Process_Cancel_Parent(i 5 nbr,src_list ){ 
Rj 20 // Called when node i receives a CANCEL PARENT(srcJist) message from nbr. 

KJ For each (node src in srcjist) remove nbr from children_i(src). 

O Mark__Special_Links(i). } 

O Send_Periodic_Updates(i){ 
- Set update_list to empty. 

25 For each (j in NJ such that TT_i(i j).c != infinity) { 

Set TT_i(i j).sn = current time stamp SN_i. 
Add (i, j, TT_i(ij).c, TT_i(ij).sn, TT_i(i,j).sp) to updatejist. } 
Send message LSU(update_list) to children_i(i).} 

Partial-Topology 2 

30 Update(i, k, in_message){ 

Update_Topology Table(i, k, in_message); 
Lex_Dijkstra; // Uses lexicographic Dijkstra to compute Ti 
Generate JJpdates(i, update_list); 
if (k does not equal i and update_list is non-empty) { 
3 5 Send_Updates_Children(i, updatejist) ; 

Update_Parents(i); 

} 

Send_Updates_Children(i, update_list) { 

For each (node k e Ni) {out_message(k) <- 0;} 
40 For each (node src € TTJ s.t. src does not equal i){ 

update_list(src) <- {(k, 1, c) € update_list s.t. k = src}; 



6 



for each (node k e children_i(src)){ 

Add update Jist(src) to out_message(k);} 

} 

For each (node k e Ni s.t. outjnessage(k) is non-empty) { 
5 Send the message out_message(k) to node k;} 

} 

Update JTopology_Table(i, k, in_message){ 
For each ((u, v, c) € in__message{ 

// Process only updates received from the parent p_i(u) 
10 if(p_i(u) = kork = i){ 

if ((u, v)«s TTJ or c! = TT_i(u, v).c{ 
TT_i(u, v) <r- (u, v, c); 
Mark (u, v) as changed in TTJ;} 

} 

15 } 

if (in_message is a PARENT_RESPONSE) { 
_ For each (u such that in_message includes source u){ 

3 if (p_i(u) = k and pending_i(u) = 1){ 

'p t pending_i(u) = 0; 

20 For each (v such that TTJ contains an entry for (u, v)){ 

li; if (in_message does not contain update for link (u, 

p v )){ 

flj TT_i(u, v).c <-oo; 

p // indicates link should be deleted 

~ 25 Mark (u, v) as changed in TTJ; 



□ 30 



} 



Process_Cancel_Parent(i, nbr, src_list){ 
For each (src € src_list) 

childrenj(src) <— children_i(src) - {nbr}; 

35 } 

Generate_Updates(i, update_list){ 
update_list <- 0; 

for each (entry (u, v, c, c') e TT_i){ 

if ((u, v) is in new Ti and ((u, v) is marked as changed or is not in old 
40 Ti)){ 

Add (u, v, c) to update_list; 
Ti(u, v).c' <- Ti(u, v).c; 
Ri<-Riu{(u, v)}; 
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} 

else if ((u, v) is in Ri but not in new Ti and c > c'){ 
Add (u, v, oo) to updatejist; // delete update 
Ti(u, v).c' <- oo; 
Remove (u, v) from Ri; 

} 

if (TT_i(u 5 v).c = oo) 

Remove (u, v) from TT_i; 

} 

} 

Update_Parents(i) { 

For each (node k e Ni){ 

cancel_src_list(k) <- 0; 
src_list(k) <- 0;} 
For each (node src eTTJ such that src * i) { 

new_p_i(src) «- next node on shortest path to src; 
if (new__p_i(src) *p_i(src)){ 

if (new__p_j(src) * NULL) { 
k <— p_i(src); 

cancel_src_list(k) <- cancel_src_list(k) kj {src}; 

} 

if (new__p_i(src) * NULL){ 
k <- new__p_i(src); 
src_list(k) <r- src_list(k) u {src}; 

} 

p_i(src) <— new_p_i(src); 

For each (node k e Ni){ 
if(srcjist(k)*0) 

Send NEW_PARENT(src_list(k)) to node k; 
if(cancel_src_list(k) * 0) 

Send CANCEL_PARENT(cancel_src_list(k)) to node k; 

} 

} 

Process_New_Parent(i, nbr, src_list){ 
update_list <- 0; 
for each (node u e u_list) { 

children_i(u) <- children_i(u) u {nbr}; 

updates(u) «— {(u, v, c) e TT_i such that (u, v) € Ti}; 

updatejist <- update_list u updates (u); 

} 

Send PARENT RESPONSE(src_list, updatejist) to nbr;} 
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